home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 095 / 151b_src.arc / CNFG-VAR.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-05-29  |  10.1 KB  |  325 lines
  1. ' $SUBTITLE: 'Arrays passed between various components of CONFIG.BAS'
  2. ' $PAGE
  3.    DEFINT A-Z
  4. '
  5. ' The following arrays are passed between the various subroutines
  6. ' within RBBS-PC's configuration program, CONFIG.
  7. '
  8.     DIM A$(10)
  9.     DIM FILES.FUNCTION(7)            ' Files menu security
  10.     DIM FILES.FUNCTION$(7,2)         ' Base-line file system commands
  11.     DIM GLOBAL.FUNCTION(4)           ' Global commands security
  12.     DIM GLOBAL.FUNCTION$(4,2)        ' Global commands
  13.     DIM HELP$(9)                     ' Help file names
  14.     DIM MAIN.FUNCTION(17)            ' Main menu security
  15.     DIM MAIN.FUNCTION$(17,2)         ' Base-line message system commands
  16.     DIM MENU$(6)                     ' Menu file names
  17.     DIM SYSOP.FUNCTION(7)            ' Sysop menu security
  18.     DIM SYSOP.FUNCTION$(7,2)         ' Base-line SYSOP commands
  19.     DIM DNLD$(99)                    ' Download Sub-Dirs
  20.     DIM UTILITY.FUNCTION(11)         ' Utility menu security
  21.     DIM UTILITY.FUNCTION$(11,2)      ' Base-line utility system commands
  22. ' $SUBTITLE: 'Variables passed between various components of CONFIG.BAS'
  23. ' $PAGE
  24. '
  25. ' The following variables are passed between the various and
  26. ' seperately compiled subroutines used by CONFIG.BAS.
  27. '
  28.    COMMON SHARED _
  29.           A$(), _
  30.           ACT.MNTHS.B4.DELETING, _
  31.           ACTIVE.BULLETINS, _
  32.           ALWAYS.STREW.TO$, _
  33.           ANS.MENU$, _
  34.           ASK.IDENTITY, _
  35.           AUTODOWNLOAD$, _
  36.           BAUDOT, _
  37.           BAUDOT$, _
  38.           BG, _
  39.           BORDER, _
  40.           BUFFER.SIZE, _
  41.           BULLETIN.MENU$, _
  42.           BULLETIN.PREFIX$, _
  43.           BULLETINS.OPTIONAL, _
  44.           BULLETINS.OPTIONAL$, _
  45.           BYPASS, _
  46.           BYPASS.MSGS, _
  47.           BYPASS.SECURITY, _
  48.           BYPASS$, _
  49.           C$, _
  50.           CALLBACK.VERIFICATION, _
  51.           CALLBACK.VERIFICATION$, _
  52.           CALLERS.FILE$, _
  53.           CODE.TYPE, _
  54.           COM.PORT$, _
  55.           COMMANDS.BETWEEN.RINGS, _
  56.           COMMANDS.BETWEEN.RINGS$, _
  57.           COMMANDS.IN.PROMPT, _
  58.           COMMANDS.IN.PROMPT$, _
  59.           COMMENTS.AS.MESSAGES, _
  60.           COMMENTS.AS.MESSAGES$, _
  61.           COMMENTS.FILE$, _
  62.           COMPUTER.TYPE, _
  63.           COMPUTER.TYPE$, _
  64.           CONFERENCE.MENU$, _
  65.           CONFERENCE.VIEWER.SEC.LVL, _
  66.           CONFIG.FILENAME$, _
  67.           CONFIG.VERSION$, _
  68.           D$, _
  69.           DD$, _
  70.           DAYS.IN.SUBSCRIPTION.PERIOD, _
  71.           DAYS.TO.WARN, _
  72.           DEFAULT.CATEGORY.CODE$, _
  73.           DEFAULT.SECURITY.LEVEL, _
  74.           DIR.CATEGORY.FILE$,_
  75.           DIRECTORY.EXTENTION$, _
  76.           DIRECTORY.PATH$, _
  77.           DISK.FOR.DOS$, _
  78.           DISKFULL.GO.OFFLINE, _
  79.           DISKFULL.GO.OFFLINE$, _
  80.           DNLD.SUB, _
  81.           DOORS.AVAILABLE, _
  82.           DOORS.AVAILABLE$, _
  83.           DOORS.SECURITY.LEVEL, _
  84.           DOORS.TERMINAL.TYPE, _
  85.           DOS.VERSION, _
  86.           DOWNLOAD.DRIVES$, _
  87.           DOWNLOAD.TO.SUBDIR, _
  88.           DOWNLOAD.TO.SUBDIR$, _
  89.           DRIVE.FOR.BULLETINS$, _
  90.           DRIVES.FOR.DOWNLOADS$, _
  91.           DRIVE.FOR.HELP.FILES$, _
  92.           DRIVE.FOR.UPLOADS$, _
  93.           DTR.DROP.DELAY, _
  94.           DUMB.MODEM, _
  95.           DUMB.MODEM$, _
  96.           END.OFFICE.HOURS, _
  97.           EXPERT.USER, _
  98.           EXPERT.USER$, _
  99.           EXPIRED.SECURITY, _
  100.           EXTENDED.LOGGING, _
  101.           EXTENDED.LOGGING$, _
  102.           F7.MESSAGE$, _
  103.           FALSE, _
  104.           FC, _
  105.           FG, _
  106.           FILE$, _
  107.           FILE.OF.CATEGORIES$, _
  108.           FILES.FUNCTION(), _
  109.           FILES.FUNCTION$(), _
  110.           FILE.NOTIFY, _
  111.           FILE.NOTIFY$, _
  112.           FILE.COMMANDS$, _
  113.           FILE.COMMANDS.DEFAULTS$, _
  114.           FILESEC.FILE$, _ 
  115.           GB, _
  116.           GLOBAL.COMMANDS$, _
  117.           GLOBAL.COMMANDS.DEFAULTS$, _
  118.           GLOBAL.FUNCTION(), _
  119.           GLOBAL.FUNCTION$(), _
  120.           GO.TO.SHELL, _
  121.           GO.TO.SHELL$, _
  122.           HALT.ON.ERROR$, _
  123.           HASH.ID$, _
  124.           HELP$(),_
  125.           HELP.EXTENSION$, _
  126.           HELP.FILE.PREFIX$, _
  127.           HELP.PATH$, _
  128.           HIDDEN, _
  129.           HJ$, _
  130.           IB, _
  131.           ILOOKUP, _
  132.           INCLUDE.EXTENTION, _
  133.           INCLUDE.EXTENTION$, _
  134.           INDIV.ID$, _
  135.           IPAGE, _
  136.           IX, _
  137.           LEN.HASH, _
  138.           LEN.INDIV, _
  139.           LIMIT.DAILY.TIME$, _
  140.           LIMIT.SEARCH.TO.FMS, _
  141.           LIMIT.SEARCH.TO.FMS$, _
  142.           LOCAL.PASSWORD$
  143. COMMON SHARED _
  144.           M$, _
  145.           M11$, _
  146.           M14$, _
  147.           M22$, _
  148.           M23$, _
  149.           M24$, _
  150.           M25$, _
  151.           M26$, _
  152.           MAIN.FUNCTION(), _
  153.           MAIN.FUNCTION$(), _
  154.           MAIN.COMMANDS$, _
  155.           MAIN.COMMANDS.DEFAULTS$, _
  156.           MAIN.MESSAGE.BACKUP$, _
  157.           MAIN.MESSAGE.FILE$, _
  158.           MAIN.USER.FILE$, _
  159.           MASTER.DIRECTORY.NAME$, _
  160.           MAX.ALLOWED.MSGS.FRM.DEF, _
  161.           MAX.DESC.LEN, _
  162.           MAX.MESSAGE.LINES, _
  163.           MAX.MSG.FILE.SIZE.FRM.DEF!, _
  164.           MAX.USR.FILE.SIZE.FRM.DEF, _
  165.           MAXD, _
  166.           MAXIMUM.DISPLAYABLE.PAGES, _
  167.           MAXIMUM.NUMBER.OF.NODES, _
  168.           MAXIMUM.PASSWORD.CHANGES, _
  169.           MAXIMUM.VIOLATIONS, _
  170.           MENU$(), _
  171.           MESSAGE.REMINDER, _
  172.           MESSAGE.REMINDER$, _
  173.           MIN.SEC.TO.VIEW, _
  174.           MINIMUM.LOGON.SECURITY, _
  175.           MINIMUM.SECURITY.FOR.TEMP.PASSWORD, _
  176.           MINUTES.PER.SESSION!, _
  177.           MLCOM, _
  178.           MLCOM$, _
  179.           MM, _
  180.           MN1$, _
  181.           MN2$, _
  182.           MNP.SUPPORT$, _
  183.           MO$, _
  184.           MODEM.ANSWER.COMMAND$, _
  185.           MODEM.COMMAND.DELAY.TIME, _
  186.           MODEM.COUNT.RINGS.COMMAND$, _
  187.           MODEM.GO.OFFHOOK.COMMAND$, _
  188.           MODEM.INIT.BAUD$, _
  189.           MODEM.INIT.COMMAND$, _
  190.           MODEM.INIT.WAIT.TIME, _
  191.           MODEM.RESET.COMMAND$, _
  192.           MUSIC, _
  193.           MUSIC$, _
  194.           NET.MAIL$, _
  195.           NETWORK.TYPE, _
  196.           NETWORK.TYPE$, _
  197.           NEW.FILES.CHECK, _
  198.           NEW.FILES.CHECK$, _
  199.           NEW.PUBLIC.MSGS.SECURITY, _
  200.           NEW.PRIVATE.MSGS.SECURITY, _
  201.           NEW.USER.BELL, _
  202.           NEW.USER.BELL$, _
  203.           NEW.USER.CASE, _
  204.           NEW.USER.CASE$, _
  205.           NEW.USER.DEFAULT.MODE, _
  206.           NEW.USER.DEFAULT.MODE$, _
  207.           NEW.USER.DEFAULT.PROTOCOL$, _
  208.           NEW.USER.GRAPHICS$, _
  209.           NEW.USER.LINE.FEEDS, _
  210.           NEW.USER.LINE.FEEDS$, _
  211.           NEW.USER.MARGINS, _
  212.           NEW.USER.NULLS, _
  213.           NEW.USER.NULLS$, _
  214.           NEW.USER.PREFERENCES, _
  215.           NEW.USER.PREFERENCES$, _
  216.           NEWUSER.FILE$, _
  217.           NEWUSER.PROMPT$, _
  218.           NEWUSER.SETS.DEFAULTS, _
  219.           NEWUSER.SETS.DEFAULTS$, _
  220.           NOT.YET.IN$, _
  221.           NUM.FILES, _
  222.           NUM.GLOBAL, _
  223.           NUM.MAIN, _
  224.           NUM.SYSOP, _
  225.           NUM.UTILITY, _
  226.           OKAY, _
  227.           OMIT.MAIN.DIRECTORY$, _
  228.           OPTION$, _
  229.           OVERWRITE.SECURITY.LEVEL, _
  230.           PAGE.LENGTH, _
  231.           PAGING.PRINTER.SUPPORT$, _
  232.           PASSWORD.FILE$, _
  233.           PCJR, _
  234.           PROMPT.BELL, _
  235.           PROMPT.BELL$, _
  236.           PROMPT.HASH$, _
  237.           PROMPT.INDIV$, _
  238.           PROTOCOL.PATH$, _
  239.           RBBS.BAT$, _
  240.           RBBS.NAME$, _
  241.           RCTTY.BAT$, _
  242.           RECYCLE.TO.DOS, _
  243.           RECYCLE.TO.DOS$, _
  244.           REDIRECT.IO.METHOD, _
  245.           REDIRECT.IO.METHOD$, _
  246.           REMEMBER.NEW.USERS, _
  247.           REMEMBER.NEW.USERS$, _
  248.           REMIND.FILE.TRANSFERS, _
  249.           REMIND.FILE.TRANSFERS$, _
  250.           REMIND.PROFILE, _
  251.           REMIND.PROFILE$, _
  252.           REQUIRE.NON.ASCII, _
  253.           REQUIRE.NON.ASCII$, _
  254.           REQUIRED.QUESTIONNAIRE$, _
  255.           REQUIRED.RINGS, _
  256.           RESTRICT.BAUD, _
  257.           RESTRICT.BAUD$, _
  258.           RESTRICT.BY.DATE, _
  259.           RESTRICT.BY.DATE$, _
  260.           RESTRICT.VALID.CMDS, _
  261.           RTS$, _                                                    ' CPC15-1B
  262.           SEC.LVL.EXEMPT.FRM.PURGING, _
  263.           SECURITY.NEEDED.TO.CHANGE.MSGS, _
  264.           SF, _
  265.           SHOOT.YOURSELF, _
  266.           SHOOT.YOURSELF$, _
  267.           SHOW.SECTION, _
  268.           SHOW.SECTION$, _
  269.           SL.CATEGORIZE.UPLOADS, _
  270.           START.HASH, _
  271.           START.INDIV, _
  272.           START.OFFICE.HOURS, _
  273.           SURVIVE.NOUSER.ROOM, _
  274.           SURVIVE.NOUSER.ROOM$, _
  275.           SYSOP.COMMANDS$, _
  276.           SYSOP.COMMANDS.DEFAULTS$, _
  277.           SYSOP.FIRST.NAME$, _
  278.           SYSOP.FUNCTION(), _
  279.           SYSOP.FUNCTION$(), _
  280.           SYSOP.LAST.NAME$, _
  281.           SYSOP.MENU.SECURITY.LEVEL, _
  282.           SYSOP.PASSWORD.1$, _
  283.           SYSOP.PASSWORD.2$, _
  284.           SYSOP.SECURITY.LEVEL, _
  285.           TB$, _
  286.           TIME.TO.DROP.TO.DOS, _
  287.           TRASHCAN.FILE$, _
  288.           TRUE, _
  289.           TURBO.RBBS, _
  290.           TURBO.RBBS$, _
  291.           TURN.PRINTER.OFF, _
  292.           TURN.PRINTER.OFF$, _
  293.           UE, _
  294.           FMS.DIRECTORY$ , _
  295.           UNIQUE.USER.FIND$, _
  296.           UNIQUE.USER.ID$, _
  297.           UPCAT.HELP$, _
  298.           UPLOAD.DIRECTORY$, _
  299.           UPLOAD.PATH$, _
  300.           UPLOAD.SUBDIR$, _
  301.           UPLOAD.TIME.FACTOR!, _
  302.           UPLOAD.TO.SUBDIR, _
  303.           UPLOAD.TO.SUBDIR$, _
  304.           USE.COLOR, _
  305.           USE.COLOR$, _
  306.           USE.EXTERNAL.XMODEM, _
  307.           UTIL.COMMANDS$, _
  308.           UTIL.COMMANDS.DEFAULTS$, _
  309.           UTILITY.FUNCTION(), _
  310.           UTILITY.FUNCTION$(), _
  311.           WAIT.BEFORE.DISCONNECT, _
  312.           WELCOME.FILE$, _
  313.           WELCOME.INTERRUPTABLE, _
  314.           WELCOME.INTERRUPTABLE$, _
  315.           WILL.SUBDIRS.B.USED, _
  316.           WILL.SUBDIRS.B.USED$, _
  317.           WRAP.CALLERS.FILE, _
  318.           WRAP.CALLERS.FILE$
  319. ' ******************************************************************
  320. ' *       Functions common to modules                              *
  321. ' ******************************************************************
  322.          DEF FNYESNO$(TORF) = MID$("NOYES = REGISTRATION   ",TORF^2*2 MOD 6+1,TORF^4+2)
  323.          DEF FNYESNO(STRNG$) = (LEFT$(STRNG$,1)="Y")
  324.  
  325.